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2. ABSTRACT 

2.1 Purpose 

To allow the programmer to save areas of memory on DEC tape, and allow quick 
retrieval of such information, using the toggle switches on the PDP-7. 

3. REQUIREMENTS 

3.3 Equipment 

Paper Tape Reader, Teleprinter, DECtapes 

4. USAGE 

A) To Store Information 

1) Set ACS as follows: 

K2 345y v678 9 10 11 1 2 13 14 15 16 1:^ 
Unit Starting Block 

2) Start at 6001 (or 16001). 

3) When HLT occurs set ACS as follows:* 

012 3 4v5 6 78 9 10 11 121314 15 16 17, 
Core Starting Address 

4) Press CONTINUE. 

5) When HLT occurs set ACS as follows:* 

012 3 4v5 678 9 10 11 12 13 14 15 16 \7j 
^^^,,_ _ 

Core Ending Address (Inclusive) 

Make sure area requested goes from the lower part of the information to the 
highest part even if there is an unused portion in between. If too much tape is being wasted, 
the data can be broken up into smaller groups by storing each small area separately. 

If the number of words to be stored does not constitute an integral number of 
blocks, the last block will be filled with +0. 

6) Press CONTINUE. 



'Be careful that bit 5 is not left set inadvertently from the unit selection in step 1 . 
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7) When the transfer is completed, the following message is typed: 

WR X-Y ZZZZZZ 

where X is the starting tape block, Y is the last block written in. ZZZZZZ is the total check 
sum of the entire area transferred and WR indicates that a write operation has been completed. 

B) To Retrieve Information 

1) Set ACS as follows: 

lv2 3 45/ v6 7 8 9 10 11 12 13 14 15 16 17^ 

^-N?"'''^ .y^ 

Unit Starting Block 

2) Start at 6000 (or 16000) 

3) When the transfer is completed, a message as shown in paragraph A. 7 
above, will be typed, except that an RD will appear instead of the WR, indicating that a 
Read Operation has been completed. 

4) If the block requested is not the starting block of a stored area (as 
determined from the identification stored with the information), the following message will be 
typed: 

NG XXXX 

where XXXX is the block number requested. 

C) To use DECTRIEVE as a subroutine of another program, the following method 
can probably be used with a minimum of changes. 

1) Assume the format for storing data is: 

WRITE 

ZZXXXX /ZZ=unit, XXXX=starting block address 

CI /core starting address 

C2 /core ending address 

2) Assume the format for retrieving data is: 

READ 

ZZXXXX /ZZ=unit, XXXX=starting block address 

3) Change the first 10^-. registers beginning at "READ" to: 

READ=JMS . 


lac .-1 
dac write- jms 
jmp rdl 
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WRITE=JMS 





lac i .-1 

dac wrtl 

dac tpsbl 

dac rd2 

isz write- jms 

lac i write- jms 

dac wrtl+1 

isz write- jms 

lac i write- jms 

4) Change the instruction at rdl+6 to lac i write- jms. 

5) Change the two instructions beginning at wrtla+3 to; 

isz write- jms 
jmp i write-jms 

6) Note the following limitations on using the changes as described: 

a) The DECTRIEVE area itself cannot be stored as the program return 
saved on the tape will be the one desired for writing but not necessarily for reading. 

b) In case of an error, the program will type an error message and 
the return to the program at the same place as if the transfer was completed correcfly. This 
situation can be handled by inserting instructions before errwa+9 which set a program flag, 
inserting instructions at READ and WRITE which clear the flag, and checking for the setting 
of the flag upon returning from DECTRIEVE. To simply HALT if an error occurs, change the 
instruction at errwa+9 to a HLT. 

c) To eliminate the normal completion messages (but not the error 
messages), change the instruction at wrtlb+2 to a jmp wrtla+1 . 

7) The reasons for using DECTRIEVE as a subroutine should be quite clear 
and specific to the user. If it is being used simply to transfer data, a lot of effort and memory 
room can be saved by simply using the normal DECtape Subroutines (Digital-7-22-IO). 

6. DESCRIPTION 

To store data, the user indicates the DECtape block number and core starting 
and ending addresses of the area to be saved. The routine will store the data on the indicated 
blocks together with four words of control information used for retrieval . When completed, 
appropriate messages are typed which can be used to verify the data upon retrieval. All 
information written is checked by re-reading the data and accumulating the checksums. The 
information is not stored in memory when sum checking. 
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To retrieve the information, the user need only indicate the starting block where 
the information was stored. The control information on the tape will supply enough data to 
store the information in the correct memory registers. Upon completion, a mesage will be 
typed whose pertinent data should be an exact duplicate of the data typed when the information 
was stored . 

The program occupies approximately 1260^. words of storage and versions are 
available beginning at either 6000 or 16000 in memory and for either the first or second DECtape 
controls. Either version can be used with a 4K or 8K machine. 

if any errors occur, they will be typed as in DECTOG (q.v.). With the exception 
of Register 0, any portion of memory including the DECTRIEVE area may be saved. Register 
and 10 are destroyed by the program. Register 1 is saved and restored after the program is run 
and is written with the control information. Therefore, when the information is retrieved. 
Register 1 will appear as it did when the information was stored. In calculating the number of 
blocks a given area will occupy, be sure to include the space automatically occupied by the 
four cont; j1 words. 

9. 

9.4 

DECTRIEVE LOWER MEMORY 

DECTAPE 



/UNIT AND BLOCK NUMBER 
/UNIT 



/CORE START 



/CORE END 



Listing 










DECTRIEVE LOWER MEMORY 


/READ 


AMD 


WRITE PROGRAMS WITH 


MSUMS= 


■A 






6 000/ 








READ, 




J M P 


n u X 


WRITE, 




LAS 








PAC 


WRTl 






DAG 


T#PSBL 






DAC 


R02 






hLT 








LAS 








OAC 


W R T 1 + 1 






HLT 








LAS 








DAC 


W R T 1 + ? 






LAC 


(LAC Rn?+1) 






n A c 


M M W R S + 3 






LAC 


(FLEX RD ) 






DAC 


RD#wRL 






LAC 


(DAC I MMAUTO) 






r 1 A c 


HMRD3 






DAC 


M # M D A C 






LAC 


1 






DAC 


M M # S V 1 






JMS 


ROSET 






JMS 


CLRFLG 
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JMS 


MMWRS 




LAC 


.+2 




JMP 


F.RR 


WRTl, 








LAC 


MMWAl 




IS? 


MMDONE 




JMP 


.-2 




LAC 


(FLEX WR ) 




OAC 


RDWRL 




LAC 


(CLL) 




OAC 


MMDAC 




JMP 


RDIA 


WRTIR, 


CLA 






MMLC 




TIN 






LAC 


RDWRL 




TY3 






LAC 


TPSRL 




ANO 


(7777) 




JMS 


TW?6 




LAW 


CHAR R- 




TYl 






LAM 






TAP 


MMWAl 




JMS 


TWZ6 




TSP 






LAC 


MSUMS 


WRTIA, 


JMS 


TWzf6 




LAC 


HMSVl 




DAC 


1 




HLT 






JMP 


.-1 


WRT2, 


LAC 


(FLEX KIE) 




MMWR 




JMS 


WRSUM 




LAC 


(LAC I MMAUTO) 




DAC 


MMWR3 




JMS 


WAIT 




LAC 


MMAUTO 




MMWR 




JMS 


WRSUM 




JMS 


WAIT 



NUMBER 
RETURN 



/BLOCK 
/ERROR 
/UNIT 

/CORE START 
/CORE END 



/IDENTIFICATION 



/CORE START-1 
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LAC 


MMWOC /WORD CO 




MMWR 




JMS 


WRSUM 




JMS 


WAIT 




LAC 


MMSVl 




MMWR 




JMS 


wRSUM 




JMP 


MMWR2 


WHSUM, 









ADD 


MMSUM 




DAC 


MMSUM 




JMP 


I WRSUM 


WAIT, 









mmff 




skp 






JMP 


MMWR2+2 




MMDF 




JMP 


.-4 




JMP 


I WAIT 


RDl, 


LAC 


(DAC I MMAUTO) 




DAC 


MMDAC 




LAC 


(FLEX PQ ) 




DAC 


RDWRL 




LAC 


1 




DAC 


MMSVl 




LAS 






DAC 


RD2 




DAC 


TPS8L 


ROIA, 


LAC 


(LAC RD2+2) 




DAC 


mmrqs+s 




JMS 


RDSET 




JMS 


clrflg 




JMS 


mmros 




LAC 


.+2 




JMP 


ERR 


RD2, 









JMP 


WRT2 




JMP 


R.D3 




LAC 


MMWAl 




JMP 


.-1 



COUNTER 



/ERROR 



/UNIT AND BLOCK NUMBER 



/BLOCK NUMBER 

/ERROR 

/UNIT 

/CORE START, NOT ACTUALLY USED 

/CORE END, NOT ACTUALLY USED 
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RD3, 


SAD 


(FLEX KIE 




JMP 


RD4 




TIN 






LAC 


(FLEX NG 




TY3 






LAC 


MMWAl 




JMP 


WRTIA 


RD4, 


JHS 


WRSUM 




LAC 


MMDAC 




DAC 


MMRD3 




JMS 


WAITR 




MMRC 


) 




DAC 


MMAUTO 




JMS 


WRSUM 




JMS 


WAITR 




MMRC 


) 




DAC 


MMWOC 




JMS 


WRSUM 




JMS 


WAITR 




MMRC 


) 




DAC 


MMSVl 




JMS 


WRSUM 




DZM 


MSUMS 




JMP 


MMRO? 


RD5, 


DAC 


WAITR 




ADD 


MSUMS 




DAC 


MSUMS 




LAC 


WAITR 




ADD 


MMSUM 




JMP 


MMRD4+4 


WAITR, 




MMEF 

SKP 






JMP 


MMRDl+2 




MMDF 






JMP 


.-4 




JMP 


I WAITR 


ERROR. 









DAC 


ERRWA 




SAD 


(LAW) 




DZM 


MMWAl 




SAD 


(LAW 103) 




JMP 


.+4 



F»IDI= 



V 
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SAR 
SKP 
JMP 
LAC 
DAC 
TIIM 
LAC 
RTR 
AND 
ADD 



(LAW 200) 

.+3 

MMBLKM 
MMWAl 



ERRWA 

(77) 
(LAC 



RTR 



RTR 



ERRTAB) 



ERRWA, 



DAC 

LAC 

TY3 

TSP 

LAC 

JMS 

TSP 

LAC MMRSA 

T^ORD 

3 

JMP I ERROR 



.+1 

FRRTAB 



MMWAl 
TW?6 



/MODIFIED 



FRRTAB, 



FLFX CMP FLEX FMT FLEX NTF 



FLEX EPS 
FLEX EHW 
FLFX INT 
FLFX BUF 



FLEX 
FLEX 
FLEX 
FLEX 



ERR 
BMW 
PLC 

NWR 



FLFX SUM 
FLEX BMC 
FLEX NFL 



ERR* 



JMS ERROR 
JMP WRTlA+1 



TW?6, 

TWOROZ 

JMP I TW2'6 



CLPFLG, 



9- 

I OF 

CPCF 

7 0^102 

TCP 

CLA 

LAC 

DAC 

JMP 



(JMP 

1 

I CLRFLG 



DCF 
LPCF 
PCF 
MSI 

707604 
IMTERP) 



CRRB 

LSCF 

KRB 

CLOF 

701604 



/Clear both dectape controls 



LIBRARY 



INTERR, 



DAC A#CSAVE 

MMEF 

SKP 

JMP MMERR 

MMDF 

SKP 

JMP MMDATA 

lORS 

HIT 

JMP .-1 
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0ISMIS=JMP 



Lac 

RAL 

LAC ACSAVE 

ION 

JMP I 



MMAUTO=10 



RDSET, ^' 

LAC RD4+1 
OAC MMRD4+lt 
LAC (JMP RD5) 
DAC MMRn4+3 
LAC (JMP WRTIB) 
DAC MMRD4+14 
JMP I RDSET 



1 



/PDP-7 DECTAPi: SUBROUTINES, CONTROL 
/PDP"7 DECTAPE SEARCH SUBROUTINE 

/DISMIS MUST BE DEFINED' aS JMP TO DISMISS 



LMH 



12-22-64 



INTERRUPT ROUTINE 



MMWR 

MMLC 

MMSE: 

MMRS 

MMDF 

MMBF: 

MMEF 

MMRD: 

SKP7 



7(^7504 
707604 
707644 
707612 
707501 
707601 
707541 
707512 
703341 



/FORMAT JMS MMSCH /OR MMSCHl OR MMSCHR 

/ LAW B /OR LAC (B), BLOCK NUMBER 

/ JMP X /ERROR RETURN 

/ JMP Y /SEARCH COMPLETED RETURN 

/ ^Z0000 /UNIT SELECTION 

/ MULTI-PROGRAM RETURN 
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/LEAVE INi SEARCH REVERSE MOUl 
M M S C H R , (7> 

LAC .-1 

OAC MMSCHl 

LAC (JMP MHSCH6+2) 

DAC MMSCH3+1 

CLA 

JMP MMSCHl+4 

/LEAVE INi FORWARD DIRECTION WITH TAPE STOPPED 
MMSCH, 

LAC .-1 

DAC hMSCHl 

LAC (JMP M M S C H 6 ) 

JMP HMSCHl+2 



/LEAVE IN SEARCH FORWARD MODE 



>1SCH1, 



LAC 

A C 
CLC 
DAC 
T A D 
DAC 
LAW 
DAC 
XCT 
ISZ 
AND 
DAC 
SNA 

JN'.P 

ADD 
SMA 
JMP 

LAM 
D A C 
LAC 
DAC 
ISZ 

1 AC 
DAC 
ISZ 
JMS 
LAC 



(JMP MMSCH6+?) 
MMSCH3+1 

M # M S R K 
(1) 

H#MSFK 
61 

H#MWA3 
I MMSCHl 
H M S C H 1 
(7777) 
M # M B L K M 

M M S C H 4 

M M E K 

M M S C H 4 

-7 

M # M 3 D M 

I MMSCHl 

HMERRX 
MMSCHl 
I M M S C H 1 
M M S C H 7 
MMSCHl 
M M W A I T 
I MMSCHl 



/CURRENT DIRECTION 
/PICK UP BLOCK NUMBER 
/POINTS TO ERROR RETURN 

/BLOCK TO SEARCH FOR 



/FORMAT ERROR 

/CHG OF DIRECTION CQUnTeR 
/ERROR RETURN 



/COMPLETION RETURN 



/CHECK IF DELAY IS NECESSARY 
/UNIT SELECTION 
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MMTURN, 



MMERRX, 



MMSAVE, 



MMREV, 



MMERR, 



MMDATA, 



hMS 
IS2 

LAC 
D A C 
ION 
ISZ 
JMP 

LAW 
JMP 
JMP 
HLT 
L A w 
SA,0 
JMP 
DAC 
HML 
LAC 

ri A c 

LAC 
TAD 
UAC 

NOP 
LAC 
DAC 
JMP 
LAW 
DAC 
MML 
LAC 
DAC 
LAC 
TAD 
JMP 
N'MR 
AND 
SAO 
JMP 
L A W 
JMP 
MMR 
A N D 
DAC 
SAD 
JMP 
CM A 
ADD 



MMSCHl 

(NOP) 

MMSAVE 



/POINTS TO MULTI-PROGRAM RETURN 



D 



M M S U M 

MMERRX+2 

?00 /NOT POUND 

MMEK+1 

/ERROR EXIT 

/ERROR EXIT WAS NOT JMP INSTR 
41 

M M W A 3 
hMREV 
MMWA3 

(SMA) 

MMSCH2 

H M B L K M 

MMSFK 

M#MWA? /BLOCK TO LOOK FOR IN THIS DII 

M # M N L 

/OR D ISM IS 
(DISMIS) 
MMSAVE 

I MMSCHl /CONTINUE MULT I -PROGRAMM I NG 
61 
M M W A 3 



(SPA) 

MMSCH2 

MMPLKM 

HMSRK 

M M S A V E - 2 

(400i^'i0) 

( 4 T/l '^ ) 

MMTURN 

3 00 

M M E R R X - 1 

( 7777) 

M # M W A 1 
M M W A 2 
MMSCH3 



/NON-EOT ERROR DURING SEARCH 



M M W A 2 
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MMSCH2, 


SMA 




JMP MMSAVE-1 




JMP MMTURN 


MMSCH3, 


SAD MMBLKM 




JMP MNISCH6 




JMP MMTURN 


MHSCH4, 


LAW 100 




MMLC 




JMP I MMSCHl 


MMSCH5, 


LAW 100 




JMP MMERRX-1 


MMSCH6, 


CLA 




MMLC 




CLC 




DAC MMDONE 


MMSCH7, 


JMP . 


MMEK, 


DECIMAL -576 OCTAL 




UAC MMSCH 




MmRS 




DAC M#MRSA 




LAC MMSCH 




MMLC 




JMP MMERRX 



/OR SPA FOR REVERSE 
/KEEP GOING 
/TURN AROUND 

/OR MMSCH6+2 

/FORMAT ERROR 



/FORMAT ERROR 



/EXIT 



/35 MILLISFCONn SELECT DELAY LOOP 
M M W A I T , g 

XCT I MMWAIT /PICK UP SELECT 

AND (170000) /CHECK SELECT ONLY 

SAD MMCHK-1 

JMP I MMWAIT /SAME SElECT 

DAC MMCHK-i /SAVE SELECT 

CLA 

MMSE /SELECT UNIT ZERO 

LAM DECIMAL -5000 OCTAL 



SKP7 



LAM DECIMAL -lf:;94 + l OCTAL 

DAC MMSCH 

IS^ I .-1 

JMP .-1 

JMP I MMWAIT 





/IS THIS A PDP-7? 

/COUNT 35 MS 



/SAVE SELECTION 
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/pdp*7 dectape head and write forward subroutines 

/USES AUTO-IMDEX REGISTER NAMED MMAUTO WHICH MUST BE DEFINED 
/COMMON ROUTINE FQR PICKING UP CONSTANTS AND SEARCHING FOR BLOCK 



/BLOCK NUMBER 
/ERROR RETURN 

/UNIT SELECTION 

/STARTING ADDRESS 

/ENDING ADDRESS 



MMCHK, 


C/i 






ADD 


(-1) 




DAC 


MMAUTO 




LAC 


I MMAUTO 




DAC 


MMCHKl+1 




LAC 


I MMAUTO 




DAC 


MMERRX 




DAC 


MMCHKl+2 




LAC 


I MMAUTO 




DAC 


MMCHKl+4 




CLC 






TAD 


I MMAUTO 




AND 


(17777) 




DAC 


M # M W A 4 




CLC 






TAD 


I MMAUTO 




AND 


( 17777) 




CMA 






ADD 


MMWA4 




SMA 






JMP 


MMSCH5 




DAC 


M#Mwnc 


MMCHKl, 


JMS 
LAW 
JMP 


MMSCHl 




JMP 
JMP 


MMCHK2 




I MMAUTO 


MMCHK2, 


LAC 


MMWA4 




DAC 


MMAUTO 




LAC 


(DISMIS) 




DAC 


MMSCH7 




JMP 


I MMCHK 


/DECTAPE 


READ 


SUBROUTINE 


/FORMAT 


JMS 


MMRDS 


/ 


LAW 


8 


/ 


JMP 


X 


/ 


?Z0000 


/ 


CI 




/ 


C2 





/ILLEGAL FORMAT 
/WORD COUNT 

/BLOCK NUMBER, MODIFIED 

/ERROR RETURN, MODIFIED 

/END RETURN 

/UNIT SELECTION, MODIFIED 

/MULTIPROCESS WITH MAIN PROGRAM 



MULTI-PROGRAM RETURN 



/OR LAC (B) i BLOCK NUMBER 

/ERROR RETURN 

/UNIT SELECTION 

/CORE STARTING ADDRESS 

/CORE ENDING ADDRESS, INCLUSIVE 
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MMRDS, 



MMRDl, 



MMRD2, 



MMRD3» 



MMRD4» 





LAC 

JMS 

LAW 

MMLC 

LAC 

DAC 

MMEF 

JMP 

LAW 

JMP 

MMDF 

JMP 

MMRD 

DAC 

MMEF 

SKP 

JMP 

MMDF 

JMP 

MMRD 

DAC 

ADD 

DAC 

ISZ 

JMP 

LAC 

DAC 

JMP 

MMBF 

JMP 

MMRD 

ADD 

SAD 

JMP 

LAW 

JMP 

IS?? 
LAC 
SAD 
JMP 
JMP 



MMRDS 
MMCHK 
42 

(DAC r MMAUTO) 
MMRD3 

.+3 

400 
MMERRX-1 

MMRm 

MMSUM 

MMRDl+2 

MMR04 

I MMAUTO 

MMSUM 

MMSUM 

MMWDC 

MMR02 

(NOP) 

MMRD3 

MMRD2 

MMRD2 



/READ FORWARD 



MMSU 
(-0) 
.+3 

500 

mmer 

MMWA 
<OAC 
MMRD 
MMRD 
MMSC 



/ERROR FLAG DURING READING 



/ERROR FLAG DURING READING 



/OR NOP 



M 



/SUM CHECK READING 
RX-1 
1 /UPDATE CURRENT BLOCK ADDRESS 

I MMAUTO) 
3 
1 
H6 /GOOD EXIT- 
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/DECTAPE 

/FORMAT 

/ 

/ 

/ 

/ 

/ 

/ 



WRITE SUBROUTINE 

JMS MMWRS 



LAW B 
JMP X 
?Z0000 
CI 
C2 



/OR LAC 



(B), BLOCK NUMBER 
/ERROR RETURN 
/UNIT SELECTION 
/CORE STARTING ADDRESS 
/CORE ENDING ADDRESS, INCLUSIVE 



hULTI-PROGRAM RETURN 



MMWRS, 



MMWRl, 



MMWR2, 



MMWR3, 



MMWR4, 



LAC 

JMS 

LAC 

DAC 

CLC 

[J AC 

LAW 

MML 

MMEI 

JMP 

LAW 

JMP 

MMDI 

JMP 

LAC 

MMW 

ADD 

DAC 

ISZ 

JMP 

LAC 

DAC 

JMP 

MMB 

JMP 

LAC 

CMA 

LAW 
MML 
MME 
SKP 
JMP 
HMD 
JMP 
MMR 
IS^ 



MMWRS 

MMCHK 

(LAC I MMAUTO) 

MMWR3 

M M S U M 
43 



R 



.+3 

600 
MMERRX-1 

MMWH4 

I MMAUTO 

M M S U M 
M M S U M 
MMWDC 
M M W R ? 
(CLA) 
M M W R 3 
MMWR2 

MMWR2 
M M S U M 



/WRITE FORWARD 



/ERROR FLAG DURING WRITING 



/OR CLA 



41 



MMWR2+2 



/SEARCH FORWARD 



/ERROR DURING WRITING 



-4 



D 



MMWAl /UPDATE CURRENT BLOCK ADDRESS 
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AND 


{1111) 






SAD 


MMWAl 






JMP 


.+3 






LAW 


700 




/BLOCK 


JMP 


MMERRX- 


-1 




LAC 


<LAC I 


MMAUTQ) 




SAD 


MMWR3 






JMP 


MMWRl 






JMP 


MMSCH6 




/GOOD 



MARK ERROR DURING WRITING 



EXIT 



/TELETYPE ROUTINES WITH OCTAL PRINT, 
/TURNS INTERRUPT OFE 



LMH 8-8-63 



/OCTAL PRINT, WITH ZERO SUPPRESSION 

/FORMAT LAC WO 

/ TWORD^ 

/ N /N = NUM.RER OF DIGITS TO PRINT FROM LEFT END OF WORD 



OCTAL 








TWORD£: 


:JH5 . 

(A 








DAC 


DCPN#UM 






LAC 


(S2^A) 






DAC 


TW0RDZ+17-JMS 






LAC 


I TWORDZ-JHS 






CMA 








DAC 


DCPC#NT 






IS? 


DCPCNT 






ISZ 


TWORDZ-JMS 






LAC 


DCPNUM 






RTL 








PAL 








DAC 


DCPNUM 






RAL 








AND 


C7) 






SZA 




/MODIFIED 




JMP 


TW0RDZ+25-JMS 






ISZ 


DCPCNT 






JMP 


TWORDZ+11-JMS 






T 1 ) I G I T 






JMP 


I TWORDZ-JHS 






D A C 


ncPn#iG 






LAC 


(JMP TWORDZ+31- 


-JMS) 




DAC 


TW0HDZ+17-JMS 






LAC 


DCPDIG 





TniGIT 

ISZ DCPCNT 

JMP TWORDZ+11-JMS 

JMP I TWORDZ-JMS 
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/OCTAL PRINT, NO ZERO SUPPRESSION 
/FORMAT SAME AS TWORDZ 



TWORD=JMS . 



DAC DCPNUM 

LAC TWORO-JMS 

DAC TWORDZ-JMS 

LAC (JMP TWQRD^+31-JMS) 

JMP TWORnZ+3-JMS 



/TABLE FOR UcTAL TO DECIMAL CONVERSION 

DECIMAL 

DCPTAB, 100000 10000 1000 100 

OCTAL 



10 



/TELETYPE OUTPUT PACKAGE 9/29/64 LMH (OF) 

EXTrjMP I-JHS TTAB=10 

/TYPE 1 CHARACTER FROM AC RITS 12-17 

TYlrjMS . 



PAR 

JMS TYIA 

EXT TYl 

/TYPE 1 CHARACTER (5 BIT), LINK INDICATES CASE 



TYIA 



DAC T#EMY 

AND (37 

SNA 

JMP TY2 

703301 

SKP 

JMP TY1B8B 

LAC OCL 

SPL 

LAC OCU 

SAD DCS 

JMP , 3 

JMS OTY 

DAC DCS 

LAC TEMY 
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TY2, 



JMS OTY 

ISZ T#BC 

LAC TEMY 

JMP I TYIA 



/TYPE 3 CHARACTERS FROM AC 0-5, 6-11,12-17 RESPECTIVELY 

TY3=JMS . 



JMS RL6 

JMS TYIA 

JMS RL6 

JMS TYIA 

JMS RL6 

JMS TYIA 

EXT TY3 

/TYPE A CARRIAGE RETURN, AND LINE FEED 



TCR=JMS 


• 







703301 




skp 






JMP 


TCRRRR 




LAW 


2 




JMS 


OTY 




LAW 


10 


TCRSSS, 


JMS 


OTY 




DZM 


TBC 




EXT 


TCR 


TCRRR«, 


LAW 


215 




JMS 


OTY 




LAW 


212 



/TELETYPE OUTPUT PACKAGE - PAGE 2 



/TYPE A SPACE 



TSP=JMS 





LAW 4 
703301 
SKP 



LAW 
JMS 
IS2 

EXT 



240 
OTY 

TBC 
TSP 
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/TYPE A TABULATION 

TYTrJMS . 
TAB=TYT 

LAC TBC 

ADD (-TTA8-1 

SMA 

JMP .-2 

ADD (1 

SMA 

LAC (-TTA8-1 

ADD (-1 

DAC T#EM 

TSP 

ISZ TEM 

JMP ,-2 

f:xt TYT 

/TYPEWRITER INITIALISE 

TINrjMS . 



LAC CCL 

DAC CCS 

703301 

JMS OTY 

TCP 

EXT TIN 

/TYPE THE DIGIT IN THE AC 

TDIGIT=JMS . 



' AND (17 
ADD (LAC NCT 
DAC . 1 
XX 
TYl 
EXT TDIGIT 

/TELETYPE OUTPUT PACKAGE - PAGE 3 

/TYPE A STRING OF CHARACTERS 

TSR=JMS . 



DAC T#EMY1 
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Lac (jmp TSRi 

DAC TYIA 4 

LAC I TEMYl 

TY3 

ISZ TEMYl 

JMP .-3 
TSRl, LAC (JMP TY2 

DAC TYlA 4 

LAC TEMYl 

EXT TSR 
/OUTPUT ONE FIVE BIT CHARACTER 
OTY, 

lOF 

DAC TWORD-JMS /SAVE 

CLA 

703341 

LAW /COUNTER 

DAC RL6 

LAC TWORD-JMS 

TSF 

SKP 

JMP .+3 

IS2 RL6 

JMP .-4 

TLS 

JMP I OTY 

/ROTATE LEFT 6 



RL6, 





PTL 

RTL 

RTL 

JMP 



I RL6 



/TABLE OF DIGITS 



NCT, 


33 




25 




31 


/CASE 


STORAGE 


OCU, 


33 


OCL, 


37 


OCS, 






73 
3 

7 



63 
53 



41 
71 
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/POP-4/7 ADDENDUM 

TYIBBB, ADD (LAC BTATAB-l 

DAC .+1 

XX 

JMP TYICCC 
TYlODO, JHS OTY 

JMP TY2-1 
TYiCCC, JMS RL6 

RTL 

RTL 

JMP TYlODD 
BTATA8, 265324 

215215 

271317 

240240 

243310 
254316 
256315 
212212 
251314 
264322 
246307 
270311 
260320 
272303 
273326 
263305 
242332 
244304 
277302 
211323 
266331 
241306 
257330 
255301 
262327 
247312 
377377 
267325 
261321 
250313 
377377 
START 
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H*-L 








DECTRIEVE 


, UPPER MEMORY 




/READ AND 


WRITE PROGRAMS WITH 


DECTAPE 


MSUMS=0 








1600f^/ 








READ, 


JMP 


RDl 




WRITE, 


LAS 




/UNIT AND BLO 




DAC 


WRTl 


/UNIT 




DAC 


T#PSftL 






PAC 


RD2 






HLT 








LAS 




/CORE START 




DAC 


W R T 1 + 1 






HLT 








LaS 




/CORE END 




DAC 


WRTl+2 






LAC 


(LAC RD2+1) 






DAC 


HMkRS+3 






Lac 


(FLFX RD ) 






DAC 


RD#wRL 






lac 


(DAC I MMAUTO) 






DAC 


MMRD3 






[) A C 


M # M D A C 






LAC 


1 






DAC 


MM#SVl 






JMS 


RDSFT 






JMS 


CLRFLG 






JMS 


H M W R S 






LAC 


.+? 


/BLOCK NUMBER 




JMP 


FRR 


/ERROR RETURN 


WKTl, 


<A 




/UNIT 




l>i 




/CORE START 




(/! 




/CORE END 




LAC 


M M W A 1 






IS? 


MMDONF 






JMP 


.-? 






LAC 


(FLFX WR ) 






DAC 


RDWRL 






I.AC 


(CLu) 






DAC 


M M D A C 






JMP 


RDl A 





NUMBER 
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WRTIA, 



CLA 

MMLC 

T IN 

LAC 

TY3 

LAC 

AND 

JMS 

LAW 

TYl 

LAM 

TAD 

JMS 

TSP 

LAC 

JMS 

LAC 

DAC 

HLT 

JMP 



KDWRL 

TPSBL 
(7777) 
TW?6 
CHAR R- 



MMWAl 
TW^6 

MSUMS 
TW?6 
MMSVl 
1 

.-1 
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WRT2, 



LAC 
MMW 
JMS 
LAC 
DAC 
JMS 
LAC 
M M W 
JMS 
JMS 
LAC 
MMW 
JMS 
JMS 
LAC 
H M W 
JMS 
JMP 



(FLEX KIE) 



/IDENTIFICATION 



R 



R 



WRSUM 

(LAC I rlMAUTO) 

M M H R 3 

WAIT 

MMAUTO /CORE START-1 

W R S U M 

WAIT 

MMWQC /WORD COUNTER 



R 



R 



WRSUM 

WAIT 

MM'SVl 

i^RSUM 
MMWR2 



WRSUM, 



01 

ADD MMSUM 
DAC MMSUM 
JMP I WRSUM 



WAIT, 

MMEF 

SKP 

JMP MMWR2+2 

MMDF 

JMP .-4 

JMP I WAir 



/ERRUR 



LIBRARY 



RDl, 
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LAC 


(DAC I MMAUTO) 


OAC 


MMDAC 


Lac 


(FLeX RD ) 


HAG 


RDWRL 


LAC 


1 


DAC 


mmsvi 


LAS 




OAC 


RD2 


DAC 


TPS8L 


LAC 


(LAC Rri2 + 2) 


DAC 


MMRnS+5 


JMS 


RDSFT 


JMS 


CLRFLG 


JMS 


MMROS 


LAC 


.+2 


JMP 


FRR 


M 




JMP 


WRT2 


JMP 


RD3 


LAC 


MMWA1 


JMP 


.-1 


SAD 


(FLEX KIE) 


JMP 


RD4 


TIN 




LAC 


(FLEX NG ) 


TY3 




LAC 


MMWAl 


JMP 


W R T 1 A 


JMS 


WRSUM 


LAC 


MMDAC 


(lAC 


MMRn3 


JMS 


W A I T R 


MMRD 


DAC 


M M A U T 


JMS 


WRSUM 


JMS 


W A I T R 


MMRD 


DAC 


M M W D C 


JMS 


WRSUM 


JMS 


WAIT R 


MMRD 


DAC 


MMSVI 


JMS 


WRSUM 


[^3?M 


MSUMS 


JMP 


MMRi)^" 



/UNIT AND BLOCK NUMBER 



/BLOCK NUMBER 

/ERROR 

/UNIT 

/CORE START, NOT ACTUALLY USED 

/CORE END, NOT ACTUALLY USED 
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R05, 



DAC 
ADD 
DAC 
LAC 

ADD 
JMP 



W A I T H 
MSUMS 
HSUMS 
W A 1 T K 
M M S IJ M 
M M R D 4 + 4 



WAITR, 





MMFF 

SKP 

JMP MMRQ1+? 

MMDF 

JMP .-4 

JMP I WAITR 



ERROR, 



DAC 
SAD 
D2M 
SAD 
JMP 
SAD 
SKP 
JMP 
LAC 
[)AC 
TIN 
LAC 
RTR 
AND 
ADD 



E R R W A 

(LAW) 

MMWAl 

(LAW l\Ad) 

. +4 

(LAW 20!^) 

. +3 

H M H L K M 

M M W A 1 

LRRWA 

HTR 
(77) 
'(LAC ERRTAB) 



RTR 



ERRWA, 



DAC 

LAC 

TY3 

TSP 

LAC 

JMS 

TSP 

LAC MMRSA 

TWORD 

3 

JMP I ERROR 



.+1 
FRRTAB 



H M w A 1 
TW?6 



/MODIFIED 



ERRTAB, 



FLEX 
FLEX 
FLEX 
FLEX 
FLEX 



CMP 
ERS 
ERW 
IMT 
8UF 



FLEX 
FLEX 
FLEX 
FLEX 
FLEX 



FMT 
ERR 
BMW 
FLC 
NWR 



FLEX 
FLtX 
FLEX 
FLEX 



NTF 
SUM 
BMC 
NFL 
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ERR, 



JMS 
JMP 



ERROR 
W R T 1 A + 1 



TW?6, 





T WORDZ 

6 

JMP I TW?6 



CLRFLG, 





lOF 

CPCF 

700102 

TCP 

CLA 

LAC (JMP 

DAC 1 

JMP I CLRFLG 



DCF 
L?CF 
PCF 
MSI 

7 '/) 7 6 4 
I N T E R R ) 



CRRB 

LSCF 

KRB 

CLOF 

701.604 



/Clear both decTape controls 



INTERR, 



uac a#csavf 
mmef 

SKP 

JMP MMFRR 

MMDF 

SKP 

JMP MMDATA 

lORS 

HLT 

JMP .-1 



DISMIS=JHP 



LAC 
RAL 
LAC 
ION 
JMP 



ACSAVE 



I 



MMAUT0 = 1('| 

RDSET, 

LAC RD4+1 

DAC MMRD4+11 

LAC (JMP RD5) 

DAC MMRD4+3 

LAC (JMP WRTIB) 

DAC MMRD4+14 

JMP I ROSET 
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